0 REM ************************** 1 REM ************************** 2 REM * SPACE ENEMY * 3 REM * * 4 REM * (C) 1987 * 5 REM * * 6 REM * WRITTEN BY * 7 REM * * 8 REM * LAURIE THE SOFTEST * 9 REM ************************** 10 : 50 POKE 53280,0:POKE 53281,0 2004 DATA 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240 2006 DATA 133,89,169,224,133,91,32,191,163,169,55,133,1,88,96 2010 FORT=832TO832+33:READQ:POKET,Q:NEXT 2020 SYS832:POKE850,160:SYS832:POKE56576,PEEK(56576)AND252:POKE53272,8 2030 POKE648,192 2031 PRINT"[147][155] BITTE WARTEN" 2032 PRINT" DATEN WERDEN EINGELESEN" 2050 READX:IFX=-1THEN2060 2052 CG=57344+X*8:FOR I=0TO7:READZ:POKECG+I,Z:NEXT:GOTO2050 2060 : 2070 DATA 27,255,255,255,255,255,255,255,255 2072 DATA 28,0,223,223,223,0,251,251,251 2074 DATA 29,128,128,224,240,248,248,252,255 2076 DATA 30,1,3,7,7,15,63,127,255 2078 DATA 31,255,252,240,224,224,192,192,128 2079 DATA 33,255,127,15,7,7,3,3,1 2080 DATA 35,2,2,4,136,72,72,40,16 2081 DATA 129,195,219,129,157,157,157,157,255 2082 DATA 142,141,181,181,149,149,149,153,255 2083 DATA 141,153,165,189,157,157,157,157,255 2084 DATA 36,255,255,255,255,255,255,254,252 2085 DATA37,239,207,207,151,55,119,119,243 2086 DATA 38,252,248,211,215,175,131,15,63 2087 DATA 40,3,3,251,249,253,241,249,253 2088 DATA 148,131,239,239,231,231,231,231,255 2089 DATA 146,129,189,189,129,155,157,157,255 2090 DATA 143,129,189,189,157,157,157,129,255 2091 DATA 130,131,219,193,205,205,205,129,255 2092 DATA 149,189,189,189,157,157,157,129,255 2100 DATA 176,129,189,185,149,141,157,129,255 2102 DATA 177,199,247,247,231,231,231,195,255 2109 DATA 178,129,189,253,129,159,159,129,255 2110 DATA 179,193,253,253,225,249,249,129,255 2111 DATA 180,191,191,187,187,129,243,243,255 2112 DATA 181,193,223,223,193,249,185,129,255 2113 DATA 182,129,191,191,129,157,157,129,255 2114 DATA 183,129,189,251,247,231,231,231,255 2115 DATA 184,195,219,219,129,157,157,129,255 2116 DATA 185,129,189,189,129,249,249,129,255 2118 DATA 140,191,191,191,159,159,159,129,255 2119 DATA 137,239,239,239,231,231,231,231,255 2120 DATA 150,189,189,189,219,219,231,231,255 2121 DATA 133,129,191,191,135,159,159,129,255 2122 DATA 147,129,189,191,129,249,185,129,255 2123 DATA 135,129,189,191,145,157,157,129,255 2124 DATA 151,157,157,157,157,189,165,153,255 2127 DATA 64,255,255,255,255,255,254,253,251 2128 DATA 65,255,255,248,199,63,255,255,254 2129 DATA 66,243,192,0,236,252,252,254,254 2130 DATA 67,255,255,127,15,119,121,62,62 2131 DATA 68,247,247,239,239,239,223,223,223 2132 DATA 69,30,142,192,224,224,240,248,252 2133 DATA 70,60,28,24,24,1,1,1,3 2134 DATA 71,127,191,223,239,239,239,247,247 2135 DATA 72,191,191,191,127,127,127,127,127 2136 DATA 73,255,255,255,255,224,128,39,72 2137 DATA 74,254,254,255,255,0,0,255,63 2138 DATA 75,3,3,7,7,0,0,255,248 2139 DATA 76,247,251,251,251,123,27,139,203 2140 DATA 77,127,127,127,127,127,191,191,191 2141 DATA 78,86,121,126,127,127,127,191,191 2142 DATA 79,1,147,150,12,248,240,224,192 2143 DATA 80,231,210,33,63,31,15,7,3 2144 DATA 81,203,219,211,215,215,135,135,159 2145 DATA 82,223,223,239,247,247,251,253,254 2146 DATA 83,191,188,112,64,128,128,128,128 2147 DATA 84,57,124,124,124,56,24,24,24 2148 DATA85,159,159,63,63,127,127,255,255 2149 DATA 86,64,224,240,248,252,254,255,255 2150 DATA 87,0,0,0,0,0,0,129,193 2151 DATA 88,12,12,12,4,116,198,130,2 2152 DATA 89,255,127,127,127,255,127,127,127 2153 DATA 90,241,249,249,248,255,255,255,255 2154 DATA 91,2,1,1,129,255,255,255,255 2155 DATA 92,63,63,63,63,255,255,255,255 2156 DATA -1 2157 : 3500 REM MASCHINENPROGRAMM 3501 REM ----- 3520 DATA 162,0,142,192,2,142,193,2,142,196,2,142,197,2 3522 DATA 206,252,207,174,252,207,224,0,208,102,162,30,142,252,207 3524 DATA 173,0,220,41,239 3600 DATA 141,254,207,162,0,142,253,207,32,0,200,173,0,220,201,112,176,74 3602 DATA 173,21,208,41,2,201,2,240,65,162,0,142,194,2,142,195,2 3603 DATA 173,16,208,41,253,141,16,208,41,1,201,1 3604 DATA 208,8,173,16,208,9,2,141,16,208,174,0,208,142,2,208,174,1,208 3606 DATA 142,3,208,162,0,32,172,200,174,0,220,224,109,240,11,32,102,201 3608 DATA 173,21,208,9,2,141,21,208 3611 DATA 206,251,207,174,251,207,224,0,208,104,162,30,142,251,207 3612 DATA 173,1,220,41,111,141,254,207,162,4,142,253,207,162,2,32,0,200 3613 DATA 173,1,220 3614 DATA201,240,176,74,173,21,208,41,8,201,8,240,65,162,0,142,198,2,142,199,2 3615 DATA 173,16,208,41,247,141,16,208,41,4,201,4 3616 DATA 208,8,173,16,208,9,8,141,16,208,174,4,208,142,6,208,174,5,208 3618 DATA 142,7,208,162,2,32,172,200,174,1,220,224,237,240,11,32,102,201 3620 DATA 173,21,208,9,8,141,21,208 3622 : 3623 DATA 173,30,208,141,249,207,41,2,201,2,240,12 3624 DATA 173,31,208,141,255,207,41,2,201,2,208,8,173,21,208,41,253,141,21,208 3625 DATA 173,249,207,41,8,201,8,240,9 3626 DATA 173,255,207,41,8,201,8,208,8,173,21,208,41,247,141,21,208 3632 DATA 174,0,208,142,8,208,174,4,208,142,10,208,174,1,208,232,232 3634 DATA 142,9,208,174,5,208,232,232,142,11,208 3635 : 3637 DATA 174,0,208,224,0,208,8,173,16,208,9,16,141,16,208,174,0,208,224,255 3639 DATA 208,8,173,16,208,41,239,141,16,208,174,4,208,224,0,208,8,173,16,208 3641 DATA 9,32,141,16,208,174,4,208,224,255,208,8,173,16,208,41,223,141,16,208 3645 : 3647 DATA 206,250,207,174,250,207,224,0,208,43,162,99,142,250,207 3649 DATA174,252,195,224,54,208,17,238,253,195,238,252,195,162,2,142,43,208,142 3651 DATA 44,208,24,144,14,206,253,195,206,252,195,162,1,142,43,208,142,44,208 3671 DATA 173,255,207,41,1,201,1,240,9 3672 DATA 173,249,207,41,1,201,1,208,72,162,40,142,0,208,142,8,208 3673 DATA 162 ,165,142,1,208,232,232,142,9,208,173,16,208,41,238,141,16,208 3674 DATA 173,21,208,41,247,141,21,208,32,73,201,162,1,142,33,208 3678 DATA 32,126,201,162,8,142,33,208,32,126,201,162,0,142,33,208,174,41,195 3679 DATA 224,176,208,1,96,174,30,208,206,41,195 3680 DATA 173,255,207,41,4,201,4,240,9 3681 DATA 173,249,207,41,4,201,4,208,72,162,45,142,4,208,142,10,208,162,165 3682 DATA 142,5,208,232,232,142,11,208,173,16,208,9,36,141,16,208 3683 DATA173,21,208,41,253,141,21,208,32,73,201,162,1,142,33,208,32,126,201 3685 DATA 162,8,142,33,208,32,126,201,162,0,142,33,208,174,68,195,224,176 3689 DATA 208,1,96,174,30,208,206,68,195 3705 DATA 174,13,208,224,131,208,10,162,1,142,205,2,162,255,142,204,2 3706 DATA 174,13,208,224,160,208,10,162,255,142,205,2,162,1,142,204,2 4203 DATA 162,15,169,128,141,61,3,141,60,3,222,208,2,208,44,189,176,2,157,208,2 4205 DATA189,192,2,240,33,16,12,189,0,208,8,222,0,208,40,240,7,208,19,254,0,208 4207 DATA 208,14,173,60,3,208,9,173,61,3,77,16,208,141,16,208,173,60,3,208 4209 DATA 3,78,61,3,73,128,141,60,3,202,16,191,76,24,196 4210 DATA -1 4215 DATA 172,254,207,192,110,208,13,172,253,207,169,255,153,193,2,169,40 4216 DATA 157,248,195,172,254,207,192,109,208,8,172,253,207,169,1,153,193,2 4217 DATA 172,254,207,192,103,208,13,172,253,207,169,1,153,192,2,169,44 4218 DATA 157,248,195,172,254,207,192,107,208,13,172,253,207,169,255,153,192,2 4219 DATA 169,43,157,248,195,172,254,207,192,102,208,18,172,253,207,169,1 4220 DATA 153,192,2,169,255,153,193,2,169,41,157,248,195,172,254,207,192,106 4221 DATA 208 ,16,172,253,207,169,255,153,192,2,153,193,2,169,42,157,248,195 4223 DATA 172,254,207,192,105,208,18,172,253,207,169,255,153,192,2,169,1 4224 DATA 153,193,2,169,46,157,248,195,172,254,207,192,101,208,16,172,253,207 4225 DATA 169,1,153,192,2,153,193,2,169,45,157,248,195,96 4229 DATA 188,248,195,192,40,208,13,172,253,207,169,255,153,195,2,169,47 4230 DATA 157,249,195,188,248,195,192,44,208,13,172,253,207,169,1,153,194,2 4231 DATA 169,50,157,249,195,188,248,195,192,43,208,13,172,253,207,169,255 4232 DATA 153,194,2,169,51,157,249,195,188,248,195,192,41,208,18,172,253,207 4234 DATA 169,1,153,194,2,169,255,153,195,2,169,48,157,249,195,188,248,195 4236 DATA 192,42,208,16,172,253,207,169,255,153,194,2,153,195,2,169,49 4237 DATA 157,249,195,188,248,195,192,46,208,18,172,253,207,169,255,153,194,2 4238 DATA 169,1,153,195,2,169,53,157,249,195,188,248,195,192,45,208,16 4239 DATA 172,253,207,169,1,153,194,2,153,195,2,169,52,157,249,195,96 4246 DATA 162,0,142,4,212,162,13,142,5,212,142,6,212,162,13,142,1,212,162,255 4248 DATA 142,0,212,162,129,142,4,212,96 4252 DATA162,0,142,11,212,162,11,142,12,212,142,13,212,162,23,142,8,212,162,129 4254 DATA 142,11,212,96 4259 DATA 162,25,160,255,192,0,240,3,136,208,249,202,224,0,208,242,96,-1 4260 : 5000 REM ---- SPRITES 5010 : 5014 DATA,,,,,,,,,,8,,,8,,,8,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128 5016 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, 5020 DATA,,,,,,,,,,1,,,2,,,4,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128 5022 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, 5026 DATA,,,,,,,,,,64,,,32,,,16,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128 5028 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, 5032 DATA,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,15,190,192,,221,128 5034 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, 5038 DATA,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,248,,221,128 5040 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, 5044 DATA,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,192,,221,128 5046 DATA,62,64,,,32,,,16,,,,,,,,,,,,,,,,,, 5050 DATA,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,192,,221,128,1,62, 5052 DATA2,,,4,,,,,,,,,,,,,,,,,,,, 5056 DATA,12,,,12,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5062 DATA,,96,,,96,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5068 DATA3,,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5074 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5079 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,96,,,96,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5083 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,3,,,,,, 5087 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,96,,,96,,,,,,,, 5090 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,20,,,46,,,50,,,46,,,38,,,28,,,28 5092 DATA,,8,,,8, 5096 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,28,,,50,,,46,,,50,,,58,,,20,,,28 5097 DATA,,8,,,8, 5100 DATA,,3,,,7,,,14,,,20,,,40,,,80,,,224,,1,192,,3,128,,5,,,10,,,20,,,56 5102 DATA,,112,,,224,,1,64,,2,128,,5,,,14,,,28,,,24,, 5104 : 6000 REM EINLESEN DER DATEN 6002 : 6004 FORT=0TO9999:READQ:IFQ=-1THEN6008 6006 POKE50200+T,Q:NEXT 6008 FORT=0TO9999:READQ:IFQ=-1THEN6012 6010 POKE51200+T,Q:NEXT 6012 : 6020 FORT=0TO62:READQ:POKE51712+T,Q:NEXT 6022 FORT=0TO62:READQ:POKE51776+T,Q:NEXT 6024 FORT=0TO62:READQ:POKE51840+T,Q:NEXT 6026 FORT=0TO62:READQ:POKE51904+T,Q:NEXT 6028 FORT=0TO62:READQ:POKE51968+T,Q:NEXT 6030 FORT=0TO62:READQ:POKE52032+T,Q:NEXT 6032 FORT=0TO62:READQ:POKE52096+T,Q:NEXT 6034 FORT=0TO62:READQ:POKE52160+T,Q:NEXT 6036 FORT=0TO62:READQ:POKE52224+T,Q:NEXT 6038 FORT=0TO62:READQ:POKE52288+T,Q:NEXT 6040 FORT=0TO62:READQ:POKE52352+T,Q:NEXT 6042 FORT=0TO62:READQ:POKE52416+T,Q:NEXT 6044 FORT=0TO62:READQ:POKE52480+T,Q:NEXT 6046 FORT=0TO62:READQ:POKE52544+T,Q:NEXT 6048 FORT=0TO62:READQ:POKE52608+T,Q:NEXT 6050 FORT=0TO62:READQ:POKE52672+T,Q:NEXT 6052 FORT=0TO62:READQ:POKE52736+T,Q:NEXT 6054 : 7000 REM ----- VARIABLEN,DATEN 7002 : 7004 V=53248:POKE53265,PEEK(53265)AND239 7010 FORT=688TO719:POKET,0:NEXT 7014 FORT=39TO45:POKEV+T,15:NEXT 7022 POKEV,40:POKEV+1,165:POKE688,1:POKE689,1:POKE50168,41:POKEV+39,8 7024 POKE690,10:POKE691,10 7026 POKEV+4,45:POKEV+5,165:POKE692,1:POKE693,1:POKE50170,46 7028 POKE694,10:POKE695,10 7029 POKEV+12,143:POKEV+13,150:POKE716,1:POKE717,255:POKE700,30:POKE701,30 7030 POKE50174,56 7031 : 7040 POKEV+16,36:POKEV+21,1+4+16+32+64 7044 POKEV+27,1+4+16+32+64 7045 POKEV+30,0:POKEV+31,0 7046 : 7050 POKE50172,54:POKE50173,54 8012 SI=54272:FORT=0TO24:POKESI+T,0:NEXT 8014 POKESI+24,31:POKESI+21,3:POKESI+22,3:POKESI+23,241 8016 : 9000 REM ---- GRAFIK 9010 : 9020 PRINT"[147][149][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[" 9022 PRINT"[145][[[[[[[[[[[[_ ![[[" 9024 PRINT"[145][_ ![_ [[[" 9026 PRINT"[145][ _ ^[[[" 9028 PRINT"[145][ ![[" 9030 PRINT"[145][ ^_ ![" 9032 PRINT"[145][ ^]^_ [" 9034 PRINT"[145][ [153]#[149]^[[[ [" 9036 PRINT"[145][] ![[[_ ^][153]#[149]^[" 9038 PRINT"[145][[] ^_ !] ![[[[" 9040 PRINT"[145][[[] !] ^[[[[" 9042 PRINT"[145][[[_ ^[[] ! ![[[" 9044 PRINT"[145][[_ ^[198][193][194][192]] ![[" 9046 PRINT"[145][_ [[196][[197][198][194][[[[160] ![" 9048 PRINT"[145][ ^[[200][201][202][203][204][[_ [" 9050 PRINT"[145][] [[[205][206][207][208][209][[ ^] [" 9052 PRINT"[145][[ ^[[_[211] [194][213][[][153]#[149] ^[[] ^[" 9054 PRINT"[145][[[155][205][205][205][149][[[[[[214][215][216][167][[[[[[[[[[[[[[[[[[[[[[155][205][205][205][149][[" 9056 PRINT"[145][[[[[[[[[[[[218][219][220][[[[[[[[[[[[[[[[[[[[[[[[[[" 9058 PRINT"[145][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[" 9060 PRINT"[145][[[LIVES[146][[[[[[S P A C E[146][[[[[[[LIVES[146][5[146][[[[[" 9062 PRINT"[145][[[[[[[[[[[[[[[[ENEMY[146][[[[[[[[[[[[[[[[[[[" 9064 PRINT"[145][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[" 9066 : 9068 POKE49152+809,181:POKE49152+836,181 9070 POKE53265,PEEK(53265)OR16 9100 SYS50200 9150 POKE214,18:POKE211,15:SYS58640 9152 PRINT"[149]'N' = NEW GAME" 9164 GETA$:IFA$<>"N"THEN9164 9200 GOTO 7000